home *** CD-ROM | disk | FTP | other *** search
/ How To Lose A Guy In 10 Days Press Kit / How to Lose a Guy in 10 Days Press Kit.iso / pc / Program.dxr / New Save Image Cast_80_Save & Write Full.ls < prev    next >
Encoding:
Text File  |  2003-01-17  |  22.3 KB  |  382 lines
  1. global gSavePath, gLF, gfd, gDefaultSourcePath, oneFileCopy, gIM01, gIM02, gIM03, gIM04, gIM05, gIM06, gIM07, gIM08, gIM09, gIM10, gIM11, gIM12, gIM13, gIM14, gIM15, gIM16, gIM17, gIM18, gIM19, gIM20, gIM21, gIM22, gIM23, gIM24, gIM25, gIM26, gMegs, gImages
  2.  
  3. on enterFrame me
  4.   baCreateFolder(gSavePath)
  5.   freeRoom = baDiskInfo(gSavePath, "Free")
  6.   freemegs = freeRoom / 1030
  7.   if freemegs < gMegs then
  8.     baDeleteFolder(gSavePath)
  9.     go("StopHere")
  10.   else
  11.     nothing()
  12.   end if
  13. end
  14.  
  15. on exitFrame
  16.   IM_01_FileName = "HLG-04788"
  17.   IM_02_FileName = "HLG-208"
  18.   IM_03_FileName = "HLG-248R"
  19.   IM_04_FileName = "HLG-2576"
  20.   IM_05_FileName = "HLG-2308R"
  21.   IM_06_FileName = "HLG-07584"
  22.   IM_07_FileName = "HLG-08409"
  23.   IM_08_FileName = "HLG-04084"
  24.   IM_09_FileName = "HLG-07958"
  25.   IM_10_FileName = "HLG-08111"
  26.   IM_11_FileName = "HLG-03794"
  27.   IM_12_FileName = "HLG-07670"
  28.   IM_13_FileName = "HLG-04674"
  29.   IM_14_FileName = "HLG-07245"
  30.   IM_15_FileName = "HLG-522R"
  31.   IM_16_FileName = "HLG-03899"
  32.   IM_17_FileName = "HLG-4565"
  33.   IM_18_FileName = "HLG-04906"
  34.   IM_19_FileName = "HLG-6242"
  35.   IM_20_FileName = "HLG-06061"
  36.   IM_21_FileName = "HLG-4920"
  37.   IM_22_FileName = "HLG-2472"
  38.   IM_23_FileName = "HLG-1846"
  39.   IM_24_FileName = "HLG-KEYART1"
  40.   IM_25_FileName = "HLG-KEYART2"
  41.   IM_26_FileName = "HLG-KEYART3"
  42.   CopyrightText1 = "Paramount Pictures presents " && QUOTE & "How to Lose a Guy in 10 Days," & QUOTE && " a Robert Evans/Christine Peters Production and a Lynda Obst Production, a Donald Petrie Film, starring Kate Hudson and Matthew McConaughey. Directed by Donald Petrie, from a screenplay by Kristen Buckley & Brian Regan and Burr Steers, the film is based upon the book by Michele Alexander and Jeannie Long. Lynda Obst, Robert Evans and Christine Peters are the producers and Richard Vane is the executive producer. Also starring in the film are Adam Goldberg, Michael Michele, Shalom Harlow, Bebe Neuwirth, Robert Klein, Kathryn Hahn, Thomas Lennon, Celia Weston and Annie Parisse."
  43.   CopyrightText2 = "Paramount Pictures is part of the entertainment operations of Viacom Inc., one of the world's largest entertainment and media companies and a leader in the production, promotion and distribution of entertainment, news, sports and music. The film is rated PG-13 by the Motion Picture Association of America for some sex-related material."
  44.   CopyrightText3 = "TM & Copyright ¬© 2003 Paramount Pictures. All Rights Reserved.  Permission granted for newspaper and dated magazine reproduction not primarily devoted to a single topic, individual or motion picture. All other use without the express written consent of Paramount Pictures in each instance is expressly prohibited.  (Made in the U.S.A.)"
  45.   if gIM01 = 1 then
  46.     go("P1")
  47.     x = gSavePath & gfd & IM_01_FileName & ".tif"
  48.     y = gDefaultSourcePath & gfd & IM_01_FileName & ".tif"
  49.     setStrings(oneFileCopy, "Saving  'HLG-04788'", EMPTY, "Please wait ...")
  50.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  51.   end if
  52.   if gIM02 = 1 then
  53.     go("P2")
  54.     x = gSavePath & gfd & IM_02_FileName & ".tif"
  55.     y = gDefaultSourcePath & gfd & IM_02_FileName & ".tif"
  56.     setStrings(oneFileCopy, "Saving 'HLG-208'", EMPTY, "Please wait ...")
  57.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  58.   end if
  59.   if gIM03 = 1 then
  60.     go("P3")
  61.     x = gSavePath & gfd & IM_03_FileName & ".tif"
  62.     y = gDefaultSourcePath & gfd & IM_03_FileName & ".tif"
  63.     setStrings(oneFileCopy, "Saving 'HLG-248R'", EMPTY, "Please wait ...")
  64.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  65.   end if
  66.   if gIM04 = 1 then
  67.     go("P4")
  68.     x = gSavePath & gfd & IM_04_FileName & ".tif"
  69.     y = gDefaultSourcePath & gfd & IM_04_FileName & ".tif"
  70.     setStrings(oneFileCopy, "Saving 'HLG-2576'", EMPTY, "Please wait ...")
  71.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  72.   end if
  73.   if gIM05 = 1 then
  74.     go("P5")
  75.     x = gSavePath & gfd & IM_05_FileName & ".tif"
  76.     y = gDefaultSourcePath & gfd & IM_05_FileName & ".tif"
  77.     setStrings(oneFileCopy, "Saving 'HLG-2308R'", EMPTY, "Please wait ...")
  78.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  79.   end if
  80.   if gIM06 = 1 then
  81.     go("P6")
  82.     x = gSavePath & gfd & IM_06_FileName & ".tif"
  83.     y = gDefaultSourcePath & gfd & IM_06_FileName & ".tif"
  84.     setStrings(oneFileCopy, "Saving 'HLG-07584'", EMPTY, "Please wait ...")
  85.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  86.   end if
  87.   if gIM07 = 1 then
  88.     go("P7")
  89.     x = gSavePath & gfd & IM_07_FileName & ".tif"
  90.     y = gDefaultSourcePath & gfd & IM_07_FileName & ".tif"
  91.     setStrings(oneFileCopy, "Saving 'HLG-08409'", EMPTY, "Please wait ...")
  92.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  93.   end if
  94.   if gIM08 = 1 then
  95.     go("P8")
  96.     x = gSavePath & gfd & IM_08_FileName & ".tif"
  97.     y = gDefaultSourcePath & gfd & IM_08_FileName & ".tif"
  98.     setStrings(oneFileCopy, "Saving 'HLG-04084'", EMPTY, "Please wait ...")
  99.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  100.   end if
  101.   if gIM09 = 1 then
  102.     go("P9")
  103.     x = gSavePath & gfd & IM_09_FileName & ".tif"
  104.     y = gDefaultSourcePath & gfd & IM_09_FileName & ".tif"
  105.     setStrings(oneFileCopy, "Saving 'HLG-07958'", EMPTY, "Please wait ...")
  106.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  107.   end if
  108.   if gIM10 = 1 then
  109.     go("P10")
  110.     x = gSavePath & gfd & IM_10_FileName & ".tif"
  111.     y = gDefaultSourcePath & gfd & IM_10_FileName & ".tif"
  112.     setStrings(oneFileCopy, "Saving 'HLG-08111'", EMPTY, "Please wait ...")
  113.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  114.   end if
  115.   if gIM11 = 1 then
  116.     go("P11")
  117.     x = gSavePath & gfd & IM_11_FileName & ".tif"
  118.     y = gDefaultSourcePath & gfd & IM_11_FileName & ".tif"
  119.     setStrings(oneFileCopy, "Saving 'HLG-03794'", EMPTY, "Please wait ...")
  120.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  121.   end if
  122.   if gIM12 = 1 then
  123.     go("P12")
  124.     x = gSavePath & gfd & IM_12_FileName & ".tif"
  125.     y = gDefaultSourcePath & gfd & IM_12_FileName & ".tif"
  126.     setStrings(oneFileCopy, "Saving 'HLG-07670'", EMPTY, "Please wait ...")
  127.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  128.   end if
  129.   if gIM13 = 1 then
  130.     go("P13")
  131.     x = gSavePath & gfd & IM_13_FileName & ".tif"
  132.     y = gDefaultSourcePath & gfd & IM_13_FileName & ".tif"
  133.     setStrings(oneFileCopy, "Saving 'HLG-04674'", EMPTY, "Please wait ...")
  134.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  135.   end if
  136.   if gIM14 = 1 then
  137.     go("P14")
  138.     x = gSavePath & gfd & IM_14_FileName & ".tif"
  139.     y = gDefaultSourcePath & gfd & IM_14_FileName & ".tif"
  140.     setStrings(oneFileCopy, "Saving 'HLG-07245'", EMPTY, "Please wait ...")
  141.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  142.   end if
  143.   if gIM15 = 1 then
  144.     go("P15")
  145.     x = gSavePath & gfd & IM_15_FileName & ".tif"
  146.     y = gDefaultSourcePath & gfd & IM_15_FileName & ".tif"
  147.     setStrings(oneFileCopy, "Saving 'HLG-522R'", EMPTY, "Please wait ...")
  148.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  149.   end if
  150.   if gIM16 = 1 then
  151.     go("P16")
  152.     x = gSavePath & gfd & IM_16_FileName & ".tif"
  153.     y = gDefaultSourcePath & gfd & IM_16_FileName & ".tif"
  154.     setStrings(oneFileCopy, "Saving 'HLG-03899'", EMPTY, "Please wait ...")
  155.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  156.   end if
  157.   if gIM17 = 1 then
  158.     go("P17")
  159.     x = gSavePath & gfd & IM_17_FileName & ".tif"
  160.     y = gDefaultSourcePath & gfd & IM_17_FileName & ".tif"
  161.     setStrings(oneFileCopy, "Saving 'HLG-4565'", EMPTY, "Please wait ...")
  162.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  163.   end if
  164.   if gIM18 = 1 then
  165.     go("P18")
  166.     x = gSavePath & gfd & IM_18_FileName & ".tif"
  167.     y = gDefaultSourcePath & gfd & IM_18_FileName & ".tif"
  168.     setStrings(oneFileCopy, "Saving 'HLG-04906'", EMPTY, "Please wait ...")
  169.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  170.   end if
  171.   if gIM19 = 1 then
  172.     go("P19")
  173.     x = gSavePath & gfd & IM_19_FileName & ".tif"
  174.     y = gDefaultSourcePath & gfd & IM_19_FileName & ".tif"
  175.     setStrings(oneFileCopy, "Saving 'HLG-6242'", EMPTY, "Please wait ...")
  176.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  177.   end if
  178.   if gIM20 = 1 then
  179.     go("P20")
  180.     x = gSavePath & gfd & IM_20_FileName & ".tif"
  181.     y = gDefaultSourcePath & gfd & IM_20_FileName & ".tif"
  182.     setStrings(oneFileCopy, "Saving 'HLG-06061'", EMPTY, "Please wait ...")
  183.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  184.   end if
  185.   if gIM21 = 1 then
  186.     go("P21")
  187.     x = gSavePath & gfd & IM_21_FileName & ".tif"
  188.     y = gDefaultSourcePath & gfd & IM_21_FileName & ".tif"
  189.     setStrings(oneFileCopy, "Saving 'HLG-4920'", EMPTY, "Please wait ...")
  190.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  191.   end if
  192.   if gIM22 = 1 then
  193.     go("P22")
  194.     x = gSavePath & gfd & IM_22_FileName & ".tif"
  195.     y = gDefaultSourcePath & gfd & IM_22_FileName & ".tif"
  196.     setStrings(oneFileCopy, "Saving 'HLG-2472'", EMPTY, "Please wait ...")
  197.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  198.   end if
  199.   if gIM23 = 1 then
  200.     go("P23")
  201.     x = gSavePath & gfd & IM_23_FileName & ".tif"
  202.     y = gDefaultSourcePath & gfd & IM_23_FileName & ".tif"
  203.     setStrings(oneFileCopy, "Saving 'HLG-1846'", EMPTY, "Please wait ...")
  204.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  205.   end if
  206.   if gIM24 = 1 then
  207.     go("P24")
  208.     x = gSavePath & gfd & IM_24_FileName & ".tif"
  209.     y = gDefaultSourcePath & gfd & IM_24_FileName & ".tif"
  210.     setStrings(oneFileCopy, "Saving 'HLG-KEYART1'", EMPTY, "Please wait ...")
  211.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  212.   end if
  213.   if gIM25 = 1 then
  214.     go("P25")
  215.     x = gSavePath & gfd & IM_25_FileName & ".tif"
  216.     y = gDefaultSourcePath & gfd & IM_25_FileName & ".tif"
  217.     setStrings(oneFileCopy, "Saving 'HLG-KEYART2'", EMPTY, "Please wait ...")
  218.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  219.   end if
  220.   if gIM26 = 1 then
  221.     go("P26")
  222.     x = gSavePath & gfd & IM_26_FileName & ".tif"
  223.     y = gDefaultSourcePath & gfd & IM_26_FileName & ".tif"
  224.     setStrings(oneFileCopy, "Saving 'HLG-KEYART3'", EMPTY, "Please wait ...")
  225.     CopyFile(oneFileCopy, y, x, 1, 1, 1)
  226.   end if
  227.   put the long date into member "Caption Text"
  228.   put gLF after member "Caption Text"
  229.   put the time after member "Caption Text"
  230.   put gLF & "Location of the saved files is " & gSavePath after member "Caption Text"
  231.   put gLF & gLF & gLF after member "Caption Text"
  232.   put "********************" after member "Caption Text"
  233.   put gLF after member "Caption Text"
  234.   put "NOTE: Fully formatted captions in both MS Word and Adobe Acrobat formats are available on the" && QUOTE & "How To Lose A Guy In 10 Days" & QUOTE && "CD in the 'Captions' Folder." after member "Caption Text"
  235.   put gLF after member "Caption Text"
  236.   put "********************" after member "Caption Text"
  237.   put gLF & gLF & gLF after member "Caption Text"
  238.   put "You have saved the following files to your hard drive:" after member "Caption Text"
  239.   put gLF after member "Caption Text"
  240.   put gLF after member "Caption Text"
  241.   if baFileExists(gSavePath & gfd & IM_01_FileName & ".tif") then
  242.     put IM_01_FileName & "                              Photo by: Michael Gibson" & gLF after member "Caption Text"
  243.     put "Kate Hudson as Andie Anderson in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  244.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  245.     put gLF & gLF & gLF & gLF after member "Caption Text"
  246.   end if
  247.   if baFileExists(gSavePath & gfd & IM_02_FileName & ".tif") then
  248.     put IM_02_FileName & "                                 Photo by: John Clifford" & gLF after member "Caption Text"
  249.     put "Matthew McConaughey as Benjamin Barry in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  250.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  251.     put gLF & gLF & gLF & gLF after member "Caption Text"
  252.   end if
  253.   if baFileExists(gSavePath & gfd & IM_03_FileName & ".tif") then
  254.     put IM_03_FileName & "                                Photo by: John Clifford" & gLF after member "Caption Text"
  255.     put "(Left to right) Matthew McConaughey as Benjamin Barry and Kate Hudson as Andie Anderson in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  256.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  257.     put gLF & gLF & gLF & gLF after member "Caption Text"
  258.   end if
  259.   if baFileExists(gSavePath & gfd & IM_04_FileName & ".tif") then
  260.     put IM_04_FileName & "                                 Photo by: John Clifford" & gLF after member "Caption Text"
  261.     put "(Left to right) Kate Hudson as Andie Anderson and Matthew McConaughey as Benjamin Barry in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  262.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  263.     put gLF & gLF & gLF & gLF after member "Caption Text"
  264.   end if
  265.   if baFileExists(gSavePath & gfd & IM_05_FileName & ".tif") then
  266.     put IM_05_FileName & "                                Photo by: Michael Gibson" & gLF after member "Caption Text"
  267.     put "(Left to right) Matthew McConaughey as Benjamin Barry and Kate Hudson as Andie Anderson in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  268.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  269.     put gLF & gLF & gLF & gLF after member "Caption Text"
  270.   end if
  271.   if baFileExists(gSavePath & gfd & IM_06_FileName & ".tif") then
  272.     put IM_06_FileName & "                                  Photo by: Michael Gibson" & gLF after member "Caption Text"
  273.     put "(Left to right) Kate Hudson as Andie Anderson and Matthew McConaughey as Benjamin Barry in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  274.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  275.     put gLF & gLF & gLF & gLF after member "Caption Text"
  276.   end if
  277.   if baFileExists(gSavePath & gfd & IM_07_FileName & ".tif") then
  278.     put IM_07_FileName & "                               Photo by: Michael Gibson" & gLF after member "Caption Text"
  279.     put "(Left to right) Kate Hudson as Andie Anderson and Matthew McConaughey as Benjamin Barry in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  280.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  281.     put gLF & gLF & gLF & gLF after member "Caption Text"
  282.   end if
  283.   if baFileExists(gSavePath & gfd & IM_08_FileName & ".tif") then
  284.     put IM_08_FileName & "                                Photo by: Michael Gibson" & gLF after member "Caption Text"
  285.     put "(Left to right) Matthew McConaughey as Benjamin Barry and Kate Hudson as Andie Anderson in  " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  286.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  287.     put gLF & gLF & gLF & gLF after member "Caption Text"
  288.   end if
  289.   if baFileExists(gSavePath & gfd & IM_09_FileName & ".tif") then
  290.     put IM_09_FileName & "                                  Photo by: Michael Gibson" & gLF after member "Caption Text"
  291.     put "(Left to right) Kate Hudson as Andie Anderson and Matthew McConaughey as Benjamin Barry in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  292.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  293.     put gLF & gLF & gLF & gLF after member "Caption Text"
  294.   end if
  295.   if baFileExists(gSavePath & gfd & IM_10_FileName & ".tif") then
  296.     put IM_10_FileName & "                               Photo by: Michael Gibson" & gLF after member "Caption Text"
  297.     put "(Left to right) Matthew McConaughey as Benjamin Barry and Kate Hudson as Andie Anderson in  " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  298.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  299.     put gLF & gLF & gLF & gLF after member "Caption Text"
  300.   end if
  301.   if baFileExists(gSavePath & gfd & IM_11_FileName & ".tif") then
  302.     put IM_11_FileName & "                                 Photo by: Michael Gibson" & gLF after member "Caption Text"
  303.     put "(Left to right) Kathryn Hahn as Michelle, Kate Hudson as Andie and Annie Parisse as Jeannie in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  304.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  305.     put gLF & gLF & gLF & gLF after member "Caption Text"
  306.   end if
  307.   if baFileExists(gSavePath & gfd & IM_12_FileName & ".tif") then
  308.     put IM_12_FileName & "                                 Photo by: Michael Gibson" & gLF after member "Caption Text"
  309.     put "(Left to right) Adam Goldberg as Tony, Thomas Lennon as Thayer and Matthew McConaughey as Ben in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  310.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  311.     put gLF & gLF & gLF & gLF after member "Caption Text"
  312.   end if
  313.   if baFileExists(gSavePath & gfd & IM_13_FileName & ".tif") then
  314.     put IM_13_FileName & "                                Photo by: Michael Gibson" & gLF after member "Caption Text"
  315.     put "(Left to right) Samantha Quan as Lori, Kathryn Hahn as Michelle, Annie Parisse as Jeannie, Kate Hudson as Andie and Bebe Neuwirth as Lana in  " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  316.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  317.     put gLF & gLF & gLF & gLF after member "Caption Text"
  318.   end if
  319.   if baFileExists(gSavePath & gfd & IM_14_FileName & ".tif") then
  320.     put IM_14_FileName & "                                  Photo by: Michael Gibson" & gLF after member "Caption Text"
  321.     put "(Left to right) Michael Michele as Spears, Shalom Harlow as Green, Robert Klein as Warren and Matthew McConaughey as Ben in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  322.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  323.     put gLF & gLF & gLF & gLF after member "Caption Text"
  324.   end if
  325.   if baFileExists(gSavePath & gfd & IM_15_FileName & ".tif") then
  326.     put IM_15_FileName & "                                 Photo by: John Clifford" & gLF after member "Caption Text"
  327.     put "(Left to right) Annie Parisse as Jeannie, Kate Hudson as Andie and Kathryn Hahn as Michelle in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  328.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  329.     put gLF & gLF & gLF & gLF after member "Caption Text"
  330.   end if
  331.   if baFileExists(gSavePath & gfd & IM_16_FileName & ".tif") then
  332.     put IM_16_FileName & "                                  Photo by: Michael Gibson" & gLF after member "Caption Text"
  333.     put "(Left to right) Matthew McConaughey as Ben, Michael Michele as Spears, Robert Klein as Warren and Shalom Harlow as Green in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  334.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  335.     put gLF & gLF & gLF & gLF after member "Caption Text"
  336.   end if
  337.   if baFileExists(gSavePath & gfd & IM_17_FileName & ".tif") then
  338.     put IM_17_FileName & "                                Photo by: Michael Gibson" & gLF after member "Caption Text"
  339.     put "(Far left corner) Bebe Neuwirth as Lana, (on couch center) Kathryn Hahn as Michelle, (on couch right) Annie Parisse as  Jeannie, (right center white top) Kate Hudson as Andie in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  340.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  341.     put gLF & gLF & gLF & gLF after member "Caption Text"
  342.   end if
  343.   if baFileExists(gSavePath & gfd & IM_18_FileName & ".tif") then
  344.     put IM_18_FileName & "                                 Photo by: Michael Gibson" & gLF after member "Caption Text"
  345.     put "(Left to right) Bebe Neuwirth as Lana and Kate Hudson as Andie in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  346.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  347.     put gLF & gLF & gLF & gLF after member "Caption Text"
  348.   end if
  349.   if baFileExists(gSavePath & gfd & IM_19_FileName & ".tif") then
  350.     put IM_19_FileName & "                                  Photo by: Michael Gibson" & gLF after member "Caption Text"
  351.     put "(Left to right) Matthew McConaughey as Benjamin Barry and Liliane Montevecchi as Mrs. DeLauer in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  352.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  353.     put gLF & gLF & gLF & gLF after member "Caption Text"
  354.   end if
  355.   if baFileExists(gSavePath & gfd & IM_20_FileName & ".tif") then
  356.     put IM_20_FileName & "                               Photo by: Michael Gibson" & gLF after member "Caption Text"
  357.     put "(Center) Kate Hudson as Andie Anderson in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  358.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  359.     put gLF & gLF & gLF & gLF after member "Caption Text"
  360.   end if
  361.   if baFileExists(gSavePath & gfd & IM_21_FileName & ".tif") then
  362.     put IM_21_FileName & "                                 Photo by: Michael Gibson" & gLF after member "Caption Text"
  363.     put "(Left to right) Bebe Neuwirth as Lana and Kathryn Hahn as Michelle in " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  364.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  365.     put gLF & gLF & gLF & gLF after member "Caption Text"
  366.   end if
  367.   if baFileExists(gSavePath & gfd & IM_22_FileName & ".tif") then
  368.     put IM_22_FileName & "                                 Photo by: John Clifford" & gLF after member "Caption Text"
  369.     put "(Center) Director Donald Petrie and (right) Kate Hudson on the set of " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  370.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  371.     put gLF & gLF & gLF & gLF after member "Caption Text"
  372.   end if
  373.   if baFileExists(gSavePath & gfd & IM_23_FileName & ".tif") then
  374.     put IM_23_FileName & "                                 Photo by: John Clifford" & gLF after member "Caption Text"
  375.     put "(Left to right) Director Donald Petrie, Kate Hudson and Matthew McConaughey on the set of " && QUOTE & "How To Lose A Guy In 10 Days." & QUOTE && CopyrightText1 & gLF after member "Caption Text"
  376.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  377.     put gLF & gLF & gLF & gLF after member "Caption Text"
  378.   end if
  379.   put CopyrightText3 & gLF after member "Caption Text"
  380.   go("WriteCap")
  381. end
  382.